CODEDB  MACRO   ; reverse bit order for each character
  #CX1
    CODEDVAL = 0
    #RY14
      CDBN = #NY - 1
      CODEDVAL = CODEDVAL OR (('#X' AND (080 SHR CDBN)) SHR (7-(CDBN*2)))
      CODEDVAL = CODEDVAL OR (('#X' AND (1 SHL CDBN)) SHL (7-(CDBN*2)))
    #ER
    DB CODEDVAL
  #EC
#EM
        JMP >R1
REGNUM:
#IF REGISTERED
        CODEDB '00004352'
#ELSE
        CODEDB '00000000'
#ENDIF
        R1:
